| !Run file for Pluto
|
RMEnsure UtilityModule 3.10 Error This application requires RISC OS 3.10 or later
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.02 RMLoad System:Modules.CallASWI
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.02 Error This application requires CallASWI 0.02 or later
RMEnsure FPEmulator 4.03 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator 4.03 Error This application requires FPEmulator 4.03 or later
RMEnsure SharedCLibrary 5.17 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 5.34 Error This application requires SharedCLibrary 5.34 or later

Obey <Obey$Dir>.!Boot

| ****** Start of lines changeable by the user ********************

| Change and uncomment the following line if you want the Speak module to be loaded
| when you run Pluto.  Otherwise it will not be loaded until needed.
| If "<eSpeak$Dir>" <> "" then RMEnsure speak 3.47  Run <eSpeak$Dir>.speakmod

| Change and uncomment the following line if your Articles are somewhere else
| Set Pluto$Articles <Obey$Dir>.Articles

| Change and uncomment the following line if your temporary files aren't in !Scrap
| Set Pluto$Tmp <Obey$Dir>.Tmp

| Change the following line from N to Y to use Alternate Templates and Sprites.
Set Pluto$Alt N
| ****** End   of lines changeable by the user ********************

| Add the Latin9 encoding if missing
SetEval Pluto$ExtraEnc 1
IfThere Font:Encodings.Latin9 then SetEval Pluto$ExtraEnc 0
If <Pluto$ExtraEnc> then FontInstall <Pluto$Dir>.Resources.Fonts.

| Ensure there's a mime mapping
RMEnsure MimeMap 0.10 RMLoad System:Modules.Network.MimeMap

Set Pluto$Dir2 <Obey$Dir>
Set Pluto$Spell <Obey$Dir>.Resources

| Tell Pluto which Sprites to use
If "<Pluto$Alt>" = "Y" then Set Pluto$Theme <Obey$Dir>.Resources.Alternate. else Unset Pluto$Theme
| Set appropriate Sprites in Help manual (if StongHelp is running).
IF "<Pluto$Alt>" = "Y" then Obey <Pluto$Dir2>.HelpData.Alt else Obey <Pluto$Dir2>.HelpData.Std

| Clean up old redundant files if not already done in this directory.
IfThere <Pluto$Dir2>.!CleanUp then Obey -c <Pluto$Dir2>.!CleanUp

WimpSlot -min 620k -max 620k
Run <Pluto$Dir2>.!RunImage %*0
